(print_preprocess): Declare size as EMACS_INT to not lose bits.

(print_object): Likewise.

diff --git a/src/print.c b/src/print.c
index 597345c129cc6d115989f4cca2101fb7f40cbfdd..89690fe53993e35440aad092f6065feeb5b9e652 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1276,7 +1276,8 @@ static void
 print_preprocess (obj)
      Lisp_Object obj;
 {
-  int i, size;
+  int i;
+  EMACS_INT size;
 
  loop:
   if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
@@ -1891,7 +1892,7 @@ print_object (obj, printcharfun, escapeflag)
        }
       else
        {
-         int size = XVECTOR (obj)->size;
+         EMACS_INT size = XVECTOR (obj)->size;
          if (COMPILEDP (obj))
            {
              PRINTCHAR ('#');